From: Jim Blandy <jimb@redhat.com>
Date: Wed, 24 Mar 1993 01:53:00 +0000 (+0000)
Subject: * keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96720
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e6b01c14b7ccb0a0cdf8cb80a50061464a4a1876;p=emacs.git

* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
	we're polling for input, abort; input polling should always be
	suppressed while we're waiting for input.

	* keyboard.c (interrupt_signal): Remove extern declaration of
	Vwindow_system; this is no longer used.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index aa2a8503270..468d9703fe0 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4265,7 +4265,6 @@ interrupt_signal ()
   char c;
   /* Must preserve main program's value of errno.  */
   int old_errno = errno;
-  extern Lisp_Object Vwindow_system;
 
 #ifdef USG
   /* USG systems forget handlers when they are used;
@@ -4358,6 +4357,12 @@ quit_throw_to_read_char ()
   unread_command_events = Qnil;
   unread_command_char = -1;
 
+#ifdef POLL_FOR_INPUT
+  /* May be > 1 if in recursive minibuffer.  */
+  if (poll_suppress_count == 0)
+    abort ();
+#endif
+
   _longjmp (getcjmp, 1);
 }